
 1000  *SAVE S.FUNNY DIVIDE BY THREE
 1010  *--------------------------------
 1020  BYTE   .EQ 0
 1030  *--------------------------------
 1040  T      LDA #0
 1050         STA BYTE
 1060  .2     LDX #15
 1070  .1     CPX #7
 1080         BNE .4
 1090         LDA #$A0
 1100         JSR $FDED
 1110  .4     JSR DIVIDE.BY.THREE
 1120         JSR $FDDA
 1130         INC BYTE
 1140         BEQ .3
 1150         DEX
 1160         BNE .1
 1170         JSR $FD8E
 1180         JMP .2
 1190  .3     RTS
 1200  *--------------------------------
 1210  DIVIDE.BY.THREE
 1220         LDA BYTE
 1230         LSR
 1240         LSR
 1250         ADC BYTE
 1260         ROR 
 1270         LSR
 1280         ADC BYTE
 1290         ROR 
 1300         LSR
 1310         ADC BYTE
 1320         ROR 
 1330         LSR
 1340         ADC BYTE
 1350         ROR 
 1360         LSR
 1370         RTS

